Filename: /text/sbasic/shared/03010302.xhp

Green Function [Runtime]
Green 関数 [実行時](hd_id3148947.1)

Returns the Green component of the given color code.
与えられたカラーコードの緑色 (Green) のコンポーネントを返します。(par_id3153361.2)

Syntax:
構文:(hd_id3154140.3)

Green (Color As Long)
Green (Color As Long)(par_id3153969.4)

Return value:
戻り値:(hd_id3154124.5)

Integer
整数(par_id3153194.6)

Parameter:
パラメータ:(hd_id3154909.7)

Color: Long integer expression that specifies a color code for which to return the Green component.
Color:任意のカラーコードを指定するロング整数の表式で、該当する色の緑色 (Green) のコンポーネントが返されます。(par_id3153770.8)

Example:
例:(hd_id3149664.9)

Sub ExampleColor
Sub ExampleColor(par_id3156442.10)

Dim lVar As Long
Dim lVar As Long(par_id3146974.11)

lVar = rgb(128,0,200)
lVar = rgb(128,0,200)(par_id3145750.12)

msgbox "The color " & lVar & " contains the components:" & Chr(13) &_
msgbox "The color " & lVar & " contains the components:" & Chr(13) &_(par_id3151117.13)

"red = " & red(lVar) & Chr(13)&_
"red = " & red(lVar) & Chr(13)&_(par_id3153951.14)

"green = " & green(lVar) & Chr(13)&_
"green = " & green(lVar) & Chr(13)&_(par_id3152462.15)

"blue = " & blue(lVar) & Chr(13) , 64,"colors"
"blue = " & blue(lVar) & Chr(13) , 64,"colors"(par_id3154730.16)

end sub
end sub(par_id3144764.17)